home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / form1040.sit / Form 1040 / card_5916.txt < prev    next >
Text File  |  1988-02-12  |  17KB  |  712 lines
  1. -- card: 5916 from stack: in
  2. -- bmap block id: 8646
  3. -- flags: 4000
  4. -- background id: 6557
  5. -- name: 11
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   Put 11 Into Bkgnd field ID 26
  9. end OpenCard
  10.  
  11. On ClearInfo
  12.   Set hilite of Card button ID 27 of Card ID 5916 to false
  13.   Set hilite of Card button ID 12 of Card ID 5916 to false
  14.   Set hilite of Card button ID 13 of Card ID 5916 to false
  15.   Set hilite of Card button ID 14 of Card ID 5916 to false
  16.   Set hilite of Card button ID 15 of Card ID 5916 to false
  17.   Put 0 into Card field ID 24 of Card ID 5916              -- line 37
  18.   Set hilite of Card button ID 18 of Card ID 5916 to false
  19.   Set hilite of Card button ID 19 of Card ID 5916 to false
  20.   Put empty into Card field ID 25 of Card ID 5916          -- line 38
  21.   Put 0 into Card field ID 26 of Card ID 5916              -- line 39
  22.   Put 0 into Card field ID 2 of Card ID 5435
  23. end ClearInfo
  24.  
  25.  
  26. -- part 1 (field)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=6 top=59 right=74 bottom=69
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 3
  34. -- text size: 10
  35. -- style flags: 0
  36. -- line height: 13
  37. -- part name: 
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=88 top=72 right=115 bottom=419
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 3
  48. -- text size: 10
  49. -- style flags: 0
  50. -- line height: 13
  51. -- part name: 
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=88 top=240 right=256 bottom=414
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 10
  63. -- style flags: 0
  64. -- line height: 13
  65. -- part name: 
  66.  
  67.  
  68. -- part 5 (field)
  69. -- low flags: 01
  70. -- high flags: 0000
  71. -- rect: left=88 top=181 right=196 bottom=419
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 10
  77. -- style flags: 0
  78. -- line height: 13
  79. -- part name: 
  80.  
  81.  
  82. -- part 6 (field)
  83. -- low flags: 01
  84. -- high flags: 0000
  85. -- rect: left=88 top=124 right=140 bottom=259
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 3
  90. -- text size: 10
  91. -- style flags: 0
  92. -- line height: 13
  93. -- part name: 
  94.  
  95.  
  96. -- part 7 (field)
  97. -- low flags: 01
  98. -- high flags: 0000
  99. -- rect: left=305 top=141 right=157 bottom=370
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 10
  105. -- style flags: 0
  106. -- line height: 13
  107. -- part name: 
  108.  
  109.  
  110. -- part 8 (field)
  111. -- low flags: 01
  112. -- high flags: 0000
  113. -- rect: left=196 top=141 right=157 bottom=279
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 3
  118. -- text size: 10
  119. -- style flags: 0
  120. -- line height: 13
  121. -- part name: 
  122.  
  123.  
  124. -- part 9 (field)
  125. -- low flags: 01
  126. -- high flags: 0000
  127. -- rect: left=286 top=124 right=139 bottom=388
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 0
  131. -- font id: 3
  132. -- text size: 10
  133. -- style flags: 0
  134. -- line height: 13
  135. -- part name: 
  136.  
  137.  
  138. -- part 10 (field)
  139. -- low flags: 01
  140. -- high flags: 0000
  141. -- rect: left=118 top=141 right=157 bottom=173
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 0
  145. -- font id: 3
  146. -- text size: 10
  147. -- style flags: 0
  148. -- line height: 13
  149. -- part name: 
  150.  
  151.  
  152. -- part 11 (button)
  153. -- low flags: 00
  154. -- high flags: A003
  155. -- rect: left=109 top=123 right=139 bottom=152
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Enter
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   Global CardNumber,NoErrors
  167.   Set cursor to 4
  168.   Get hilite of Card button ID 13 of Card ID 5916
  169.   Put it into Button13
  170.   Get hilite of Card button ID 12 of Card ID 5916
  171.   Put it into Button12
  172.   If Button13 = False and Button12 = False then
  173.     Send "Alto" to Card button ID 11 of Card ID 5916
  174.     Exit MouseUp
  175.   end if
  176.  
  177.   Get hilite of Card Button ID 1 of Card ID 2982
  178.   Put it into Button1
  179.   Get hilite of Card Button ID 2 of Card ID 2982
  180.   Put it into Button2
  181.   Get hilite of Card Button ID 3 of Card ID 2982
  182.   Put it into Button3
  183.   Get hilite of Card Button ID 4 of Card ID 2982
  184.   Put it into Button4
  185.   Get hilite of Card Button ID 5 of Card ID 2982
  186.   Put it into Button5
  187.  
  188.   IF button1 is false and button2 is false and button3 is false and button4 is false and button5 is false then
  189.     Get short number of this card
  190.     Put it into CardNumber
  191.     Answer "Please select a filing status."
  192.     Go to Card ID 2982
  193.     Put "Please select a Filing Status Box." into Card field ID 6 of Card ID 2982
  194.     Exit MouseUP
  195.   End if
  196.  
  197.   Get Card field ID 21 of Card ID 3260
  198.   Put it into temp
  199.   If temp = 0 then
  200.     Send "ErrorCheck" to this stack
  201.     If NoErrors is False then
  202.       Answer "Please complete Cards 9,10,11 before going on."
  203.       Go to Card ID 2598
  204.       exit MouseUp
  205.     end if
  206.   End if
  207.  
  208.   IF temp < 25 then
  209.     IF temp >= 15 then
  210.       Put 2 into Card field ID 24 of Card ID 5916
  211.     Else
  212.       IF Temp >= 5 then
  213.         Put 1 into Card field ID 24 of Card ID 5916
  214.       else
  215.         Put 0 into Card field ID 24 of Card ID 5916
  216.       end if
  217.     end if
  218.   Else
  219.  
  220.     Put (Round(Temp)) into temp
  221.  
  222.     If (Temp >= 25) and (Temp < 3000) then
  223.       Put (Trunc(Temp/25)) into Temp1
  224.       Put (Temp1 * 25 + 13) into TotalIncome
  225.     Else if (Temp >= 3000) then
  226.       Put (Trunc(Temp/50)) into Temp1
  227.       Put (Temp1 * 50 + 25) into TotalIncome
  228.     end if
  229.  
  230.     If Button1 is True then -- Single
  231.       Put 1799 into Tax1
  232.       Put 16799 into Tax2
  233.       Put 26999 into Tax3
  234.       Put 53999 into Tax4
  235.       Put 198 into A
  236.       Put 2448 into B
  237.       Put 5304 into C
  238.       Put 14754 into D
  239.     Else If Button2 is True then -- Married Joint
  240.       Put 2999 into Tax1
  241.       Put 27999 into Tax2
  242.       Put 44999 into Tax3
  243.       Put 89999 into Tax4
  244.       Put 330 into A
  245.       Put 4080 into B
  246.       Put 8840 into C
  247.       Put 24590 into D
  248.     Else If Button3 is True then -- Married Seperate
  249.       Put 1499 into Tax1
  250.       Put 13999 into Tax2
  251.       Put 22499 into Tax3
  252.       Put 44999 into Tax4
  253.       Put 165 into A
  254.       Put 2040 into B
  255.       Put 4420 into C
  256.       Put 12295 into D
  257.     Else If Button4 is True then -- Head of household
  258.       Put 2499 into Tax1
  259.       Put 22999 into Tax2
  260.       Put 37999 into Tax3
  261.       Put 79999 into Tax5
  262.       Put 275 into A
  263.       Put 3350 into B
  264.       Put 7550 into C
  265.       Put 22250 into D
  266.     end if
  267.  
  268.     IF TotalIncome <= Tax1 then
  269.       Put (TotalIncome * (11/100)) into Total
  270.     end if
  271.  
  272.     IF (TotalIncome > Tax1) and (TotalIncome <= Tax2) then
  273.       Put ((TotalIncome - (Tax1 + 1)) * (15/100) + A) into Total
  274.     end if
  275.  
  276.     IF (TotalIncome > Tax2) and (TotalIncome <= Tax3) then
  277.       Put ((TotalIncome - (Tax2 + 1)) * (28/100) + B) into Total
  278.     end if
  279.  
  280.  
  281.     IF (TotalIncome > Tax3) and (TotalIncome <= Tax4) then
  282.       Put ((TotalIncome - (Tax3 + 1)) * (35/100) + C) into Total
  283.     end if
  284.  
  285.     IF (TotalIncome > Tax4) then
  286.       Put ((TotalIncome - (Tax4 + 1)) * (38.5/100) + D) into Total
  287.     end if
  288.  
  289.     Put (Round(Total)) into Card field ID 24 of Card ID 5916
  290.   end if
  291. end mouseUp
  292.  
  293. On Alto
  294.   Put hilite of Card button ID 14 of Card ID 5916 into Button14
  295.   Put hilite of Card button ID 15 of Card ID 5916 into Button15
  296.   IF button14 is true then
  297.     Answer "Use Schedule D and enter total on line 37."
  298.   else if button15 is true then
  299.     Answer "Use Form 8615 and enter total on line 37."
  300.   Else
  301.     Answer "Please select a box in line 37."
  302.   end if
  303. end Alto
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316. -- part 12 (button)
  317. -- low flags: 00
  318. -- high flags: A005
  319. -- rect: left=270 top=124 right=136 bottom=288
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: 
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   Set lockText of Card field ID 24 of card ID 5916 to true
  331.   If hilite of Card button ID 12 is true then
  332.     Set hilite of Card button ID 13 to false
  333.     Set hilite of Card button ID 14 to false
  334.     Set hilite of Card button ID 15 to false
  335.     Send "MouseUp" to Card button ID 11 of Card ID 5916
  336.   Else
  337.     Put 0 into Card field ID 24 of Card ID 5916
  338.   end if
  339. end mouseUp
  340.  
  341.  
  342.  
  343.  
  344.  
  345. -- part 13 (button)
  346. -- low flags: 00
  347. -- high flags: A005
  348. -- rect: left=101 top=142 right=154 bottom=119
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 0
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: 
  357. ----- HyperTalk script -----
  358. on mouseUp
  359.   Set lockText of Card field ID 24 of card ID 5916 to true
  360.   If hilite of Card button ID 13 is true then
  361.     Set hilite of Card button ID 12 to false
  362.     Set hilite of Card button ID 14 to false
  363.     Set hilite of Card button ID 15 to false
  364.     Send "MouseUp" to Card button ID 11 of Card ID 5916
  365.   Else
  366.     Put 0 into Card field ID 24 of Card ID 5916
  367.   end if
  368. end mouseUp
  369.  
  370.  
  371.  
  372.  
  373.  
  374. -- part 14 (button)
  375. -- low flags: 00
  376. -- high flags: A005
  377. -- rect: left=179 top=142 right=154 bottom=197
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: 
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   If hilite of Card button ID 14 is true then
  389.     Set hilite of Card button ID 12 to false
  390.     Set hilite of Card button ID 13 to false
  391.     Set hilite of Card button ID 15 to false
  392.     Answer "Use Schedule D and enter total on line 37."
  393.     Set lockText of Card field ID 24 of card ID 5916 to false
  394.   else
  395.     Set lockText of Card field ID 24 of card ID 5916 to true
  396.   end if
  397.   Put 0 into Card field ID 24 of Card ID 5916
  398. end mouseUp
  399.  
  400.  
  401.  
  402.  
  403. -- part 15 (button)
  404. -- low flags: 00
  405. -- high flags: A005
  406. -- rect: left=286 top=142 right=154 bottom=304
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 0 / 0
  409. -- text alignment: 1
  410. -- font id: 0
  411. -- text size: 12
  412. -- style flags: 0
  413. -- line height: 16
  414. -- part name: 
  415. ----- HyperTalk script -----
  416. on mouseUp
  417.   If hilite of Card button ID 15 is true then
  418.     Set hilite of Card button ID 12 to false
  419.     Set hilite of Card button ID 13 to false
  420.     Set hilite of Card button ID 14 to false
  421.     Answer "Use Form 8615 and enter total on line 37."
  422.     Set lockText of Card field ID 24 of card ID 5916 to false
  423.   else
  424.     Set lockText of Card field ID 24 of card ID 5916 to true
  425.   end if
  426.   Put 0 into Card field ID 24 of Card ID 5916
  427. end mouseUp
  428.  
  429.  
  430.  
  431.  
  432. -- part 16 (field)
  433. -- low flags: 01
  434. -- high flags: 0000
  435. -- rect: left=155 top=200 right=216 bottom=221
  436. -- title width / last selected line: 0
  437. -- icon id / first selected line: 0 / 0
  438. -- text alignment: 0
  439. -- font id: 3
  440. -- text size: 10
  441. -- style flags: 0
  442. -- line height: 13
  443. -- part name: 
  444.  
  445.  
  446. -- part 17 (field)
  447. -- low flags: 01
  448. -- high flags: 0000
  449. -- rect: left=284 top=200 right=215 bottom=349
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 0 / 0
  452. -- text alignment: 0
  453. -- font id: 3
  454. -- text size: 10
  455. -- style flags: 0
  456. -- line height: 13
  457. -- part name: 
  458.  
  459.  
  460. -- part 18 (button)
  461. -- low flags: 00
  462. -- high flags: A005
  463. -- rect: left=135 top=201 right=213 bottom=153
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 0 / 0
  466. -- text alignment: 1
  467. -- font id: 0
  468. -- text size: 12
  469. -- style flags: 0
  470. -- line height: 16
  471. -- part name: 
  472. ----- HyperTalk script -----
  473. on mouseUp
  474.   Set hilite of Card button ID 19 to false
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part 19 (button)
  480. -- low flags: 00
  481. -- high flags: A005
  482. -- rect: left=266 top=201 right=213 bottom=284
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 0
  487. -- text size: 12
  488. -- style flags: 0
  489. -- line height: 16
  490. -- part name: 
  491. ----- HyperTalk script -----
  492. on mouseUp
  493.   Set hilite of Card button ID 18 to false
  494. end mouseUp
  495.  
  496.  
  497.  
  498. -- part 20 (button)
  499. -- low flags: 00
  500. -- high flags: A003
  501. -- rect: left=109 top=241 right=255 bottom=145
  502. -- title width / last selected line: 0
  503. -- icon id / first selected line: 0 / 0
  504. -- text alignment: 1
  505. -- font id: 0
  506. -- text size: 12
  507. -- style flags: 0
  508. -- line height: 16
  509. -- part name: Add
  510. ----- HyperTalk script -----
  511. on mouseUp
  512.   Set cursor to 4
  513.   Put 0 into Temp
  514.   Put 0 into Temp1
  515.   Put Card field ID 24 of Card ID 5916 into Temp -- Line 37
  516.   Put Card field ID 25 of Card ID 5916 into Temp1 -- Line 38
  517.   If Temp <= 0 then
  518.     Send "MouseUp" to Card button ID 11 of card ID 5916
  519.     Put Card field ID 24 of Card ID 5916 into Temp
  520.   End if
  521.   Put Temp + Temp1 into Card field ID 26 of Card ID 5916 -- Line 39
  522.   put Temp + Temp1 into Card field ID 2 of Card ID 5435
  523. end mouseUp
  524.  
  525.  
  526.  
  527. -- part 21 (field)
  528. -- low flags: 01
  529. -- high flags: 0002
  530. -- rect: left=394 top=141 right=157 bottom=419
  531. -- title width / last selected line: 0
  532. -- icon id / first selected line: 0 / 0
  533. -- text alignment: 1
  534. -- font id: 3
  535. -- text size: 10
  536. -- style flags: 256
  537. -- line height: 13
  538. -- part name: 
  539.  
  540.  
  541. -- part 22 (field)
  542. -- low flags: 01
  543. -- high flags: 0002
  544. -- rect: left=393 top=200 right=216 bottom=419
  545. -- title width / last selected line: 0
  546. -- icon id / first selected line: 0 / 0
  547. -- text alignment: 1
  548. -- font id: 3
  549. -- text size: 10
  550. -- style flags: 256
  551. -- line height: 13
  552. -- part name: 
  553.  
  554.  
  555. -- part 23 (field)
  556. -- low flags: 01
  557. -- high flags: 0002
  558. -- rect: left=393 top=240 right=256 bottom=419
  559. -- title width / last selected line: 0
  560. -- icon id / first selected line: 0 / 0
  561. -- text alignment: 1
  562. -- font id: 3
  563. -- text size: 10
  564. -- style flags: 256
  565. -- line height: 13
  566. -- part name: 
  567.  
  568.  
  569. -- part 24 (field)
  570. -- low flags: 01
  571. -- high flags: 0002
  572. -- rect: left=418 top=141 right=157 bottom=502
  573. -- title width / last selected line: 0
  574. -- icon id / first selected line: 0 / 0
  575. -- text alignment: 65535
  576. -- font id: 3
  577. -- text size: 10
  578. -- style flags: 0
  579. -- line height: 13
  580. -- part name: 
  581. ----- HyperTalk script -----
  582. On MouseUp
  583.   Send "MouseUp" to Card Button ID 11 of Card ID 5916
  584. End MouseUp
  585.  
  586.  
  587. -- part 25 (field)
  588. -- low flags: 00
  589. -- high flags: 0002
  590. -- rect: left=418 top=200 right=216 bottom=502
  591. -- title width / last selected line: 0
  592. -- icon id / first selected line: 0 / 0
  593. -- text alignment: 65535
  594. -- font id: 3
  595. -- text size: 10
  596. -- style flags: 0
  597. -- line height: 13
  598. -- part name: 
  599.  
  600.  
  601. -- part 26 (field)
  602. -- low flags: 01
  603. -- high flags: 0002
  604. -- rect: left=418 top=240 right=256 bottom=502
  605. -- title width / last selected line: 0
  606. -- icon id / first selected line: 0 / 0
  607. -- text alignment: 65535
  608. -- font id: 3
  609. -- text size: 10
  610. -- style flags: 0
  611. -- line height: 13
  612. -- part name: 
  613. ----- HyperTalk script -----
  614. On MouseUp
  615.   Send "MouseUp" to Card Button ID 20 of Card ID 5916
  616. End MouseUp
  617.  
  618.  
  619. -- part 27 (button)
  620. -- low flags: 00
  621. -- high flags: A005
  622. -- rect: left=250 top=87 right=99 bottom=268
  623. -- title width / last selected line: 0
  624. -- icon id / first selected line: 0 / 0
  625. -- text alignment: 1
  626. -- font id: 0
  627. -- text size: 12
  628. -- style flags: 0
  629. -- line height: 16
  630. -- part name: 
  631.  
  632.  
  633. -- part contents for background part 26
  634. ----- text -----
  635. 11
  636.  
  637. -- part contents for background part 20
  638. ----- text -----
  639. Continue to next card
  640.  
  641. -- part contents for background part 13
  642. ----- text -----
  643. Tax Compu - tation
  644.  
  645. -- part contents for card part 1
  646. ----- text -----
  647. (Continued)
  648.  
  649. -- part contents for card part 2
  650. ----- text -----
  651. CAUTION: If under age 14 and you have more than $1000  of investment income, check here             and see page 16 to see if you have to use Form 8515 to figure your tax.
  652.  
  653. -- part contents for card part 6
  654. ----- text -----
  655. 37.                  Tax.  Check if from 
  656.  
  657. -- part contents for card part 10
  658. ----- text -----
  659. Tax table,
  660.  
  661. -- part contents for card part 9
  662. ----- text -----
  663. Tax Rate Schedules,
  664.  
  665. -- part contents for card part 8
  666. ----- text -----
  667. Schedule D, or
  668.  
  669. -- part contents for card part 7
  670. ----- text -----
  671. Form 8615
  672.  
  673. -- part contents for card part 5
  674. ----- text -----
  675. 38.  Additional taxes (see page 16).  Check if from
  676.  
  677. -- part contents for card part 3
  678. ----- text -----
  679. 39.               lines 37 and 38.  Enter the total . . . . . . . . . . . . .
  680.  
  681.  
  682. -- part contents for card part 16
  683. ----- text -----
  684. Form 4970
  685.  
  686. -- part contents for card part 17
  687. ----- text -----
  688. Form 4972
  689.  
  690. -- part contents for card part 21
  691. ----- text -----
  692. 37
  693.  
  694. -- part contents for card part 22
  695. ----- text -----
  696. 38
  697.  
  698. -- part contents for card part 23
  699. ----- text -----
  700. 39
  701.  
  702. -- part contents for card part 26
  703. ----- text -----
  704. 0
  705.  
  706. -- part contents for card part 24
  707. ----- text -----
  708. 0
  709.  
  710. -- part contents for background part 40
  711. ----- text -----
  712. 5:00 PM